home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / rxobj.lha / rxobj_examples / rxobj_example.e < prev   
Text File  |  1995-10-29  |  479b  |  32 lines
  1. MODULE 'Fabio/rxobj_oo'
  2.  
  3. DEF quit = FALSE
  4.  
  5. PROC main()
  6.   DEF rx:PTR TO rxobj
  7.   DEF rxsig
  8.   DEF sig
  9.  
  10.   NEW rx.rxobj('FabioSoft')
  11.  
  12.   WriteF('Host: "FabioSoft" Alive AND Kicking!\n')
  13.   WriteF('Send a QUIT message TO the port!\n')
  14.  
  15.   rxsig:=rx.signal()
  16.   REPEAT
  17.     sig:=Wait(rxsig)
  18.     rx.get({parse})
  19.   UNTIL quit=TRUE
  20.  
  21.   WriteF('This is the end...\n')
  22.   END rx
  23. ENDPROC
  24.  
  25. PROC parse(t)
  26.   WriteF('Parsing:\s\n', t)
  27.   IF StrCmp(t, 'QUIT')
  28.     quit:= TRUE
  29.   ENDIF
  30. ENDPROC TRUE, 0,NIL
  31.  
  32.